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C3803 - PRINTER ALTERNATE CONSOLE SUPPORT P/N=1635204 EC=755404 PAGE 01 C3803 - PRINTER ALTERNATE CONSOLE SUPPORT P/N=1635204 EC=755404 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0014F0 3 C3803 START 5360 125 * BIT 1 = O - INFORMATION MESSAGE * 
Uf ee he he fe she he he Be Be he he 2h Me ee He fe ae he he He he he he ae he Be ee He he he he He ae he He fe he he he he He He He he He he He He ae he Hee ae He Me he He He He ee oe oe Ke 126 * 1-> ERROR MESSAGE : 
5 & * 127 * 
6 * eK te PREREQUISITES mk : 128 : THE SVC 'OUTIN' ALSO ENTERS THIS ROUTINE. : 
8 * PRINTER ATTACHED * 130 ee eae Oe PO ee er Ta ee ge ee eee eee ee 
9 * LEVEL 4 PROCESSOR * 0014F0 131 PRINT EOU 
10 * * 0014FO0 690D 179C 132 MVW rt, PRISW SET PRINT BUSY 
YD HM RH RR RR MR HR RH RR A RR FR RR HR KR OR RO BO OO14F4 C128 1792 133 MVB *NLSW T/ON NEW LINE SWITCH 
12 * * OO74F8 C025 1794 134 MV BZ AckCS, RO RESET MESSAGE PROCESSED SWITCH 
13 * 4k MODIFICATIONS a * 0014FC 5003 135 SET UP TO USSUE I/0 
14 * * 137 Pe ee PS. are ee TPP rt SRE Sdn od, 7 Ao eT 
15 * 1. REARRANGE OVERLAY FOR FUTURE EXPANSION. * 138 * * 
16 * * 139 * THIS ROUTINE HANDLES INTERRUPTS FROM THE PRINTER * 
YT RR RH HH KH RH HK HK KK KK KKK KKK EEK EK EERE KEK 140 * * 
18 * * VU] Re ee He he ee He he He Me He He He He Me He Ho He Me He HME He He Me HK He Me He Me oe Me He HK He He Mee He He eM He He Me He Me He Me He He HHH eH KH KK HK KK KEK 
19 * HK REA'S INCORPORATED ek * OO14FE 142 PROO = 
20 * * OO14FE 6301 143 brs SM DISABLE INTERUPTS 
.) : NONE : er 6B05 1600 143 ee BuCC THREE, PR70 BR/IF NOT DEV END INT 
DZ HR AR HD ea RM RH KK I I RR RR OR I a RR RR Xk ok ek i tok ek 001504 402rb 1690 0001 146 eo eWI R RETRY,WRCTL RESET RETRY INDICATOR IN DCB 
24 * * 00150A 4020 1694 0001 147 vee ONE WRSKP RESET FOR SPACE 1 LINE 
25 * ae SPECIAL INSTRUCTIONS Hk * 001510 C025 17A2 148 MVPZ DEAE CYCLE STEAL STATUS IN PROGRESS 
26 * * 001514 6801 1618 149 BNZ PR8 BR/YES 
27 * NONE * 001518 6908 179C 150 MVW Oe ew R1 GET ADDR QUE BLOCK 
28 * * 00151C 6B08 17BC 151 MVW RPSV,K3 GET DIAGNOSTIC PROGRAM DATA ADDR 
DQ WH Mesh He Be Be Me Be he Fe ae he He He he He he he ah he She he He he ah he he af ae af ofc afc Se ah Bie ae ae he he she he he he He he he He ah he ek he he He ke Me se ae fe 2k fe he ke ke KK kK ke OK ke 001520 C420 1794 152 MVB ACECS, R4 MESSAGE BEEN PROCESSED 
30 * * 001524 1835 153 PR3 BR/YES 
31 * ao E. C. HISTORY * KX * 001526 154 PR10 EQU * 
32 * * 001526 0840 155 EBBK INITIAL BLANK FOR BUFFER 
33 * DATE OAIGL 76 DATE 010CT76 DATE 224PR77 DATE 9849678 * 001528 OF50 156 MVBI SIxT¢+ TENT, R7 LENGTH OF BUFFER 
34 * E.C. 5784 E.C. 578468 Cx 8751 E.C. 75540 * 00152A 4424 1716 157 MVA PRT R4 ADDR PRINT BUFFER 
35 * * 00152E 288C 158 FFN RO ep BLANK OUT BUFFER 
BG RA He He he he He oh he he oe Ae he Be he he She Ke he he He he he He Be He Me he he He 2 oh ea ah he he he he ec ah af Be He ae he he he 2c 3 ee he ake he he eae He he hee Ae he oe ie Ok ok 2 OK 001530 c020 1790 159 MVB PRBA R PRINT BLANK LINE AFTER ENTER 
BB Heke ae oe He oe he oe ofeach fe he He Bee 2h IK oe ae he he he ae Me he af he ah oe hk he he he he ae He he oe ie he af ah He he 3 he he fe Ke ce he 3h ae Hee afe he he Ae he ae ae 3h ae oe eK 0071534 1828 160 JINZ BR/IF YES 
39 * * 001536 c025 1792 161 KVBZ reat RO NEW LINE SW ON-IF SO TURN OFF 
4O * SYSTEM EQUATES * 00153A 1016 162 JZ PR20° BR/IF NOT 
44 * * 00153cC C020 179B 163 MVB GRPT1,R0 BYPASS HEADER PRINT 
UD HAE He Ae ie Be pe ae ae ake he he he He he ae he He he he he he aye he aye Me Be He Se he ae oye ee he af He Be Be 2h He x he afe afe af ah hee he he he fe he he He ee afe he he he ae He ae ah 2h ae ae Oe He 001540 1213 164 JN PR20 BR/YES-DON'T PRINT HEADER 
000001 43 SM EQU 1 SUMMARY MASK DISABLE OR 001542 4224 1720 165 MVA PRIBF ,R2 PRINT BUFFER ADR 
uy * ENABLE CODE 001546 4724 17AC 166 MVA HLTCV,R7 ADR OF CONTROL BLOCK 
UE 5 Re Ae ie she he ake ae a 3h ae he he he He he 3 ae he he 2 fe fe ae afe af afe afe ae afc 2fe ah fe ae ake he ae ae ae he ah fe fe ae He ah ie she ae af He ae he fe he Ae ee He ah He ah He hc a ke A a OO0154A 601A 167 SVC HTOE GO CONVERT 
46 * x 00154c 4724 17B2 168 MVA HALCV,R7 ADR OF CONTROL BLOCK 
u7 * EQUATED NAMES FOR SUPPORTED SVC'#S * 001550 601A 169 SVC HTOE GO CONVERT 
4g * * 001552 80B4 17EA 170 MVB ECPEGe (R2)+ MOVE IDENTIFIER 
OQ Hee aK He fe she Ae he he he he He 3 he he he fe he ae He ae ae he he of ae oh he ahs fe he ae of he 3 he He he ae He fe he Ke ake fe fe he he ae he he ae Me he ke ae ake ahe Be ae ae shee 2k ae He ak he he er 001556 OFOY 171 MVBI RS aR? BYTES TO HOVE 
000000 50 OUT EQU 0 OUT SVC 001558 4624 1800 172 HVA ADR OF I.D. 
QOOO01A 51 HTOE EOU 26 HEX TO EBCDIC SVC (STRING) 00155C 2E44 173 MVFN ‘oF MOVE THE PROG NAHE 
Be Be eR he He He He He ee He eK ee fe ee 2h 3h Me fe he fe Oe he he he ke He he Oe he ah ee ee he He he he he he hee a he he he ahah ee ok a a aK eK eK O00155E OF74 174 MVBI oe LENGTH OF RTN AND CK PT HSG 
54 * * 001560 4624 17D0 175 NVA ADDR MESSAGE 
55 * EQUATES USED BY DCP * 001564 2844 176 MVFN et Be MOVE MESSAGE INTO PRINT BUFFER 
56 * * 001566 500F 177 J PRINT THE HEADER 
G7 ae aie he ae he ae he he he 2h Be ee af He He he he he he he he hee he af he he he ae afc ae he ee ae hc he ah hee ae Se Be he ee ae he eae ee ie he ee ee i He i eK \ 001568 178 PR20 rou 
000006 58 STOP EQU 6 STOP AFTER MSG OUT 001568 OF4O 179 HVBI SIXTY RI SET TO MOVE 64 BYTES | 
000007 59 ALTDV EOQU 7 ALTERNATE OUTPUT DEV ASSIGNED 00156A 77C4 180 MVW R7,R6- SAVE MAX NUMBER BYTES TO MOVE 
00000B 60 RTMDI EOU 11 MDI RETURN REQUESTED 00156C 0800 181 MVBI ZERO,RO END OF MESSAGE CHAR 
000040 62 EBBK EQU crs BLANK CHAR 00156E 286F 182 SFEN RO 3) COMPUTE LENGTH OF MESSAGE 
000000 64 ZERO EQU 0 VALUE OF 0 001570 1801 183 JNE PRD BR/IF FOM CHARACTER FOUND 
000001 65 ONE EQU 1 1 001572 O3FF 184 ABI M1,R3 ADDRESS OF EOM CHARACTER 
000002 66 TWO EQU 2 2 001574 185 PR21 EOQU * 
000003 67 THREE EQU 3 3 001574 77CA 186 SW R7,R6 GET LENGTH OF MESSAGE 
000004 68 FOUR EOU 4 rm 001576 100C 187 IZ PR30 BR/TF ONE 
000005 69 FIVE EOU 5 5 001578 766A 188 SW R6,R3 ADDE OF MESSAGE AGAIN 
000007 70 SEVEN EQU 7 7 00157A 76E4 189 MVW R6,R7 BYTES TO MOVE INTO BUFFER 
000009 71 NINE EOQU 9 9 00157C 4424 1720 190 MVA PRTBF,R4 GET ADDRESS OF BUFFER 
QOOOOA 72 TEN EOU 10 10 001580 2B84 191 MHVFN 3) (Ra) MOVE DATA INTO PRINT BUFFER 
000014 73 THWNTY EQU 20 20 001582 C428 1794 192 MVB é INDICATE MESSAGE PROCESSED 
00003C 74 SIXTY EQU 60 60 001586 193 PR24 EQU 
000040 75 SIXT4 EQU 64 64 001586 4624 176C 194 MVA WIDCB, R6 PRINT IDCB ADDR 
FFFFFF 77 M1 EQU -1 -1 00158A 195 PR25 EOQU * 
FFFFE2 78 M30 EQU -30 ~30 00158A 6F03 1628 196 BAL PRIO,R7 GO ISSUE I/O AND CHECK COND 
000241 80 ACTYP EQU x'2407! STORAGE ADDRESS FOR AC TYPE 00158E 5036 197 J PR60 RETURN TO SCHEDULER 
BD ek Hea a 2 2 a Ae fe ee he ee a oe ae ee ee ee eo ae he he he ae ae Me He 2 he He oe he he te he He He ee ee Hee he eee he ee eK a KK KK 001590 . 198 PR30 EQU 4c 
83 * * 001590 882F 179E 1784 199 C ENTSW,ACSVP* ENTER MESSAGE FINISHED 
84 * EQUATES FOR CODED STOPS USED BY DCP * 001596 1018 200 JE PR51 BR/IF YES 
85 * (NORMAL AND ERROR) * 001598 812B 0016 1793 201 CB §Ei5 aaa SEE IF OUTIN SVC 
86 * * 00159E 100C 202 JE BR/YES-CONTINUE 
87 Bee ea ee eee nt 001580 C825 179C 203 MVWZ PRTSW RESET PRINT BUSY SWITCH 
003801 88 ACNG X'3801'! ALTERNATE CONSOLE ERROR 001584 4734 1782 204 MVA teat ADR OF DCP IND 
89 gana bE a ica a NCPR N rod SEE ae ages pepe eg er as hea EE ee Tor 0015A8 “EFOS6 205 TBT Si eTée) TS STOP AFTER ERR NSG ON 
90 * * 0OO0O15AA 1004 206 JOFF R46 BR/NO 
91 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE a 0075AC 4724 179A 207 MVA GRPT ADR FROM MSG INDICATORS 
92 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * 0015B0 4FO09 208 TBT ty fENE) IS THIS AN ERR MSG 
93 * * 0015B2 1224 209 JON R66 BR/YES-WAIT FOR OPERATOR 
Q iy Hae sheaf Fe he He ae fe ae ae fe he He hee he he ee he he ae oe he hx he he 3h he he 2h he He ae Be ie Be hk AK ie A 2 ee He he He 2 2 he ee ee eo he eae eK oe eK HK 0015B4 210 PR4O EQU 
000014 95 QR7 EQU 20 XR7 OF CALLING PROGRAM 0015B4 6812 1786 211 B ACSVR* RETURN 
000076 96 gsvc EQU 22 SVC NUMBER OF CALLING PROGRAM 0015B8 212 PR50 £EQU 
98 De he he aie ae 3K KK 2h ae ae ee 2h le he eo 3c 34 ae He ae ae ah 3h he 3 He he He he He he che hee he ee He hc He ee ee ee 3 ee Hee eK eK ok ok KK KKK 0015B8 C325 1792 213 NVBZ iS RESET NEW LINE SW 
99 * * 0015BC 8838 1784 179E 214 MVW heaves. ENTSW SET SWITCH WITH QUE BLOCK ADDR 
100 * THE FOLLOWING AREA CONTAINS THOSE CONSTANTS AND CODE * 215 * TO SHOW TO KEY IN DATA AFTER 
101 * REQUIRED BY THE ALTERNATE CONSOLE ROUTINE WHICH WILL * 216 * THIS MESSAGE HAS BEEN PRINTED 
102 * BE READ INTO STORAGE AS OVERLAYS. * 0015C2 4324 1678 217 MVA ENTER,R3 ADDR ENTER MSG PARA 
103 * * 0015C6 500F 218 J PR52 PRINT MESSAGE 
TOG em eae ie 2h ee He oe KE he He ee HK ee ake HH he he He he He he He ee He He I Be he He He He he He He He He He ee He she ee he hee She ae sheaf oe 2 2 ee eK 00175c8 219 PR5O1 EQU x 
105 He she she Be He he 3K i he he 2h Ae she ae she he He ah He MK Be Me He ee ee he He fe Se he he He he a ae He he he ae ee ah ah he he He he He oe He He hk she ae ae cafe he Ke oh ec ok oe IK ie Ke Ke 0015c8 C025 1790 220 MYBZ PRBA,RO BLANK LINE BEEN PRINTED 
106 * * 0015CC 180D 221 JINZ PR53 BR/IF YES 
107 * NAME PRINT * OO15CE C428 1790 222 MVB R4,PRBA SET SW TO PRINT BLANK LINE 
108 * * 0015D2 4020 1694 0003 223 MVWI THREE,WRSKP SET SPACE 3 LINES 
109 * PURPOSE THIS ROUTINE STARTS PRINTING ON THE PRINTER * 0015D8 802B 167E 0241 224 CB PRIYP, ACT YP PRINTER TYPE EQUAL DEFAULT 
110 * WHAT IS PASSED TO THE ALTERNATE CONSOLE. * 0015DE 17003 225 JE R52 BR/NO-CHANGE SKIP VAL 
111 * * 0015EO 4020 1694 0005 226 MVWI FIVE, WRSKP SET SPACE 5 LINES 
112 * METHOD THIS ROUTINE IS CALLED BY AN SVC. IT APPENDS THE * 0015E6 227 PR52 £EQU * 
113 * PROGRAM ID ON THE FRONT OF EACH MESSAGE PASSED. * 0015E6 509F 228 J PR10 PRINT IT 
114 * * 001588 229 PR53 EQU 
115 * CALLING SEQUENCE tt 0015E8 C825 179E 230 MVWZ ENTS RESET ENTER SWITCH 
116 * X¥R7 POINTS TO LABEL * 0015EC 812B 0076 1793 231 CB (Ra sogiey , OUT OUT/IN SVC 
117 * * 0015F2 1804 232 JNE 6 BR/NO 
118 * SVC our * 0015F4 4734 1782 233 MVA ACIND* ADR OF DCP INDICATORS 
119 * * 0015F8 4F8B 234 TBTR (R7 RTABT) MDI IMMEDIATE RETURN 
120 *LABEL DC A (ADDR) START ADDR OF DATA TO PRINT * OO15FA 18DC 235 JNZ PR4G BR/YES 
121 * * 0015FC 236 PR60 EOU * 
122 * THE BYTE IMMEDIATELY PRECEEDING THE LABEL IS CHECKED. * O0OO1SFC 6812 1780 237 B ACSCH* RETURN TO SCHEDULER 
123 * BIT 0 0 - PRINT HEADER. * 238 * 
124 * 1 - DON'T PRINT HEADER WITH THIS MESSAGE. * 001600 239 PR70 EQU * 
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PRINTER ALTERNATE CONSOLE SUPPORT 


OBJECT TEXT STMT 
6CO4 15FC 240 
6405 1642 241 
242 
TTE4 243 
1A1B 244 
8028 1673 17A2 245 
4624 1778 246 
50B9 247 
248 
4724 1674 249 
4F9B 250 
1011 251 
4O2C 1690 0001 252 
50AF 253 
255 
256 
257 
258 
259 
260 
261 
8828 177C 17BE 262 
680C 177¢ 263 
6F05 1642 264 
6E0D 17BE 265 
68CC 0000 266 
6FE4 0000 267 
268 
269 
270 
271 
4734 1782 272 
4F8T7 273 
UE46 274 
C825 179C 375 
C025 177F 276 
1003 277 
4624 278 
QFE7 279 
280 
882C 178C 178E 281 
4724 17FE 282 
6000 283 
6918 1784 2a4 
0152 285 
ET4A 386 
6812 178A 287 
289 
240 
291 
292 
293 
40 294 
FO 295 
297 
00000000 298 
299 
C5D5E3C5D9 301 
00 302 
64 303 
00 304 
306 
307 
308 
309 
310 
311 
312 
0000 313 
0000 314 
0001 315 
0000 316 
0000 317 
0000 318 
0000 319 
1716 320 
321 
322 
323 
324 
0000 325 
0000 326 
0001 327 
0000 328 
0000 329 
0000 330 
0050 331 
1716 332 
333 
334 
335 
336 
2000 337 
0000 338 
0000 339 
0000 340 
0000 341 
0000 342 
0004 343 
1674 344 
346 
347 
348 
00000000000000000 349 
351 
352 
353 
35g 
355 
356 
357 
358 
359 
4OUO4O4O4O4040404 360 


P/N=1635204 EC=755404 PASE 02 
COPYRIGHT IBM CORP 1976 


ATTENTION INTRPT IGNORED 
BR/INTRPT COND CODE BAD 


SOURCE STATEMENT 


BCC  FOUR,PR60 
BNCC TWO,PRNG 


* EXCEPTION INTERRUPT 
MVW R7,R7 DEVICE DEPENDENT DATA AVAILABLE 
JNN PRiG BR/NO-~PRINTER CODE BAD 


MVB HEXFO,DEAT 
MVA RIDCB, R6 
PR25 


J 
PR80 EQU 


CYCLE STEAL STATUS IN PROGRESS 
CYCLE STEAL STATUS DCB 
GO ISSUE IT 


MVA  CSBUF,R7 ADDRESS OF CYCLE STEAL STATUS 
TBTR (Ri FRMOV) FORMS OVERFLOW INDICATED 

IZ né BR/NO-PRINTER STATUS BAD 

OWL RETRY, WRCTL SET RETRY DCB 


J RETRY OPERATION 
MRR AR a OR RE I 2 I ORI IO I Fok ok dak tek kk 
* * 
* THE FOLLOWING ROUTINE ISSUES I/O FOR THE PRINTER. * 
* THE CALLING ROUTINE PLACES THE IDCB ADDRESS IN REG 6. * 


* * 
HEH He eH He He ee He ee a Oe oe a a a a ec a ok ee ake oe a ah ke oe 2 i oe i a ae ee ete fe cake ook ek tek kkk 


PRIO EQU * 
MVW  ACPRE,IDCB SAVE IDCB ADDRESS 
TO ACPRE PREPARE THE DEVICE 
BNCC SEVEN,PRNG BR/BAD COND CODE 
MVH  R6,IDEB SAVE THE IDCB 
TO AR ) ISSUE PASSED 1/0 
BCC EVEN, (R7) BR/RETURN ON GOOD COND 


* 

* PRINTER CONSOLE NO GOOD - TAKE OFFLINE 

PRNG EQU. * 
MVA  ACIND*,R7 ADDRESS OF DCP INDICATORS 
TBTR (R7,ALTDV) RESET ALTERNATE DEVICE 
TBTS (R7,STOP) SET STOP ON MESSAGE 
MVWZ PRTSW,RO RESET THE PRINT SWITCH 
MVBZ panei’ RESET INTRPT BIT-UNPREPARE 
JZ PRNG1 BR/ALREADY DONE ONCE 
MVA ACRES ADDRESS OF RESET IDCB 


J GO RESET AND UNPREPARE 
PRNG1 EQU 


MVW ACSTR, ACVTR* SET ALT CON VECTOR TO STRAY 
MVA ACNGN,R7 ALTERNATE CONSOLE BAD CODE 
SVC OUT SET CODE IN LEDS 
MVW  ACSVP*,R1 GET SVC LSB ADDRESS 
ABI 30,81 SET SVC LSB POINTER 
MVWS (R1,OR7) ,R7 SET UP R7 
ACCON® GO TO CONSOLE ROUTINE 
BM Me He He He Ae 2h he ee fe ae ee eK 2h he he he he ae zk oe ae i eae 2 ae ae he he fe fe fe fc oh he ec fe he oe a he i he he 2 fe ae a ae ec a 2 af ee fe he ae 2h ak he afc 2 
% * 
* PRINTER ALTERNATE CONSOLE DATA CONSTANTS 
He A He He He 2H he he he he eH he He 2 he a he he ah ok ae he he fe he a ee he 2 Hee he eK ie eo oe 2 OK ae ok eee kek ae a 2 ok ic oe ie ok 
EBCBK DC cre EBCDIC BLANK 
HEXFO DC ‘PO! MASK 
% CYCLE STEAL STATUS BUFFER 
CSBUF DC 2A (¥-*) CYCLE STEAL STATUS BUFFER 
FRMOV EQU 27 FORMS OVERFLOW INDICATOR 
ENTER DC C'ENTER® MESSAGE 
DC X'00' EOH 
PRTYP DC X'6q" PRINTER DEFAULT 
. DC X'00! SPARE 
* DATA CONTROL BLOCKS FOR THE PRINTER 
* SKIP 2 LINES DCB 
ALIGN WORD 
CRDCB EQU * USE FOR DCB REFERENCE ONLY | 
DC X'00008 CONTROL WORD 
DC X'0000! FORMS LENGTH/SKIP CONTROL 
DC X'0001' SKIP TO LINE/SPACE LINE COUNT 
DC A (0 UNUSED 
DC A (0 DIAGNOSTIC USE ONLY 
DC A (0 CHAIN ADDRESS 
DC A(0 BYTE COUNT 
: DC A (PRTBU) BUFFER ADDRESS 
* WRITE DCB 
WRDCB EQU* USE FOR DCB REFERENCE ONLY 
WRCTL X'0000" CONTROL WORD 
WRFMS DC X'0000! FORMS LENGTH/SKIP CONTROL 
WRSKP DC X'0001° SKIP TO LINE/SPACE LINE COUNT 
DC A (0 UNUSED 
DC A (0 DIAGNOSTIC USE ONLY 
HN DC A (0 CHAIN ADDRESS 
WRBCT DC A (80) BYTE COUNT 
WRADR Dc A (PRTBU) BUFFER ADDRESS 
: READ CYCLE STEAL STATUS DCB 
CSDCB EQU  * USE FOR DCB REFERENCE ONLY 
D X'2000' CONTROL WORD 
DC A(0 UNUSED | 
DC A(0 UNUSED | 
DC A (0 UNUSED 
DC A{0 UNUSED 
DC A (0 UNUSED | 
DC ACY BYTE COUNT 
DC A (CSBUF) BUFFER ADDRESS 
* ALTERNATE CONSOLE PATCH AREA 
ACEND EQU- * 
ACS EQU 38034550 
PATCH D (ACS- ACEND) X"008 PATCH AREA 
ORG 38034550 
WEA HA He He EM He Me He He he He eH He Ke He He hee he he he ek A a he ec ae ah 2c ee ee a i ah 2 icc i a ci ce he a af 2c ce fe ake oe ake 
* * 
* TH NSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 
* STORAGE LOCATIONS BECAUSE OF PROGRAN INTERFACES. * 


* 
MR AR AR MRR A AR HR HR HOR I KE IO IOI RIOR IRI FOI IO fk Fok 
* PRINT BUFFER 
ALIGN WORD 
PRTBU DC 80c' ! 80 CHARACTER PRINT BUFFER 
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SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


PRTBF EQU PRTBUtTEN 
HER CR A RE RH OR a Rk a i a a a a a Rk ak A Rk RRR a ROR a a oo Ck 
* * 


= PRINTER ALTERNATE CONSOLE ROUTINE ENTRY POINTS . 
BK He ee aK ee he ee 2 ae 2 2 a a 2 aK fe a fe 2 oh oe a 2 ate a ke ae 2h 2 i ok 2k i i oe oe KK kkk 


ACMSG DC A (PR50 ADDRESS TO ENTER MESSAGE ROUTINE 
ACENT DC A (PRINT) PRINTER ROUTINE 
ACINT DC A (PROO PRINTER INTERRUPT RTN 
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* * 
* THE FOLLOWING ARE THE IDCB'S USED BY THE PRINTER * 
* THE DEVICE ADDRESS WILL BE INSERTED AT INITIALIZATION TIME. : 
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ALIGN WORD 
WIDCB DC X"7000! PRINTER WRITE 

DC A (WRDCB) 
CIDCB DC X"7000° PRINTER SPACE LINES 

DC A (CRDCB) 
ACRES DC X'6F00° PRINTER RESET 

DC X'0000' 
RIDCB DC X'7FOO! PKINTER READ CYCLE STEAL STATUS 

DC A (CSDCB) 
ACPRE DC X*6000° PRINTER PREPARE-LEVEL 2 

DC X'0005" 
RETRY EQU 1 RETRY INDICATOR X*0001! 
ACPR3 EQU ACPRE+THREE 

ORG C3803+656 
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* * 
* THE FOLLOWING AREA CONTAINS THOSE CONSTANTS REQUIRED * 
* FOR THE ALTERNATE CONSOLE ROUTINE AND SHARED BY DCP. * 
* THE CONSTANTS IN THIS AREA MUST REMAIN IN THE SAME * 
* STORAGE LOCATIONS BECAUSE OF PROGRAM INTERFACES. * 
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ACSCH EQU ADDRESS OF SCHEDULAR ROUTINE 
ACIND EQU ACSCH+2 DCP INDICATORS 
ACSVP EQU  ACSCH+t4 SVC INTRPT POINTER 
ACSVR EQU ACSCH+6 SVC RETURN 


ACOPC EQU ACSCH+8 OPERATOR COMMAND ROUTINE 


ACCON EQU ACSCH+10 CONSOLE ROUTINE 
ACSTR EQU ACSCH+t+12 STRAY INPRPT ROUTINE 
ACVTR EQU ACSCH+ 14 ALT CON VECTOR ADDR-INIT 
PRBA EQU ACSCH+ 16 PRINT BLANK LINE AFTER ENTER SW 
NLSW EQU ACSCH+18 NEW LINE SWITCH 
OUT1 EQU ACSCH+t+19 SVC OPERAND FOR OUTIN SVC 
ACFCS EQU ACSCH+20 MESSAGE BEEN PROCESSED SWITCH 
ACIMS EQU ACSCH+t+21 UNUSED 
CICNT EQU ACSCH+t+22 COUNT OF ACTIVE CICB'S 
EXTR1 EQU ACSCH+23 END OF TABLE INDICATOR 
INPRC EQU ACSCH+24 IND OUT/IN IN PROCESS 
EQU ACSCH#25 NOT USE 
GRPT EQU ACSCH+26 GROUP PRINTING SWITCH 
GRPT1 EQU GRPT+1 
PRTSW EQU ACSCH+t28 PRINTER BUSY 
ENTSW EQU ACSCH+30 ee MESSAGE PROCESSED SWITCH 
ACWCT EQU ACSCH+32 UN 
DEAT EQU ACSCH+t+34 CYCLE. STEAL STATUS IN PROGRESS 
HRTA EQU ACSCht36 PRG CHK ADR FOR DIAG 
INVT1 EQU ACSCH+38 BYTE COUNT 
INVT2 EQU ACSCH+40 ADR OF DATA TO CONVERT 
INVT3 EQU ACSCH+t+42 TARGET AREA 
HLTCV EQU ACSCH+44 BYTE COUNT 
* EQU ACSCH+t46 ADR OF DATA TO CONVERT 
* EQU ACSCHt48 TARGET AREA 
HALCV EQU ACSCH+t50 BYTE COUNT 
* EQU ACSCH+52 ADR OF DATA TO CONVERT 
* EQU ACSCH+54 TARGET AREA 
RPSV2 EQU ACSCH+56 TEMPORARY 
RPSV1 EQU ACSCH+58 SAVE 
RPSV EQU ACSCH+60 AREAS 
IDCB EQU ACSCH*62 ADDRESS OF LAST IDCB ISSUED BY DCP 
EQU ACSCH+64 ERROR CODE 
MSG7 EQU ACSCH+66 
MSG7A EQU ACSCH+76 
MSG8 EQU ACSCH+80 
MSG8A EQU ACSCH+85 
NSGQ9 EQU ACSCH+90 
MSG9A EQU ACSCH+t95 
* EQU ACSCH+100 EOM AND DCP MSG CNTL FLD 
PRL1 EQU ACSCH+102 ADDRESS OF MESSAGE 
ACPRG EQU ACSCH+106 
ACPRS5 EQU ACSCH+108 
LPD EQU ACSCH+120 ADDRESS OF MESSAGE 
* EQU ACSCH+122 ERROR CODE 
ACNG1 EQU ACSCH+124 EOM AND DCP MSG CNTL FLD 
ACNGM EQU ACSCH+126 ADDRESS OF MESSAGE 
ORG C3803+784 
PID EQU * LOCATION OF PROGRAM ID 
RTNE EQU PID+ 10 ROUTINE NUMBER 
CKPT 7 PID+ 12 CHECKPOINT NUMBER 
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